﻿Imports System.Windows

Namespace Views


    Partial Public Class NotImplementedPopupControl

        Private Sub NotImplementedPopup_IsVisibleChanged(ByVal sender As Object, ByVal e As System.Windows.DependencyPropertyChangedEventArgs) Handles Me.IsVisibleChanged
            '' Raise the Loaded event so that the intro animation runs.
            If (MyBase.IsVisible) Then
                MyBase.RaiseEvent(New RoutedEventArgs(FrameworkElement.LoadedEvent, Me))
            End If
        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click
            Me.Visibility = Windows.Visibility.Hidden
            Me.ux_Reason.Text = ""
        End Sub

        Public Sub SetMessage(ByVal message As String)
            Me.ux_Reason.Text = message
        End Sub


    End Class

End Namespace